home *** CD-ROM | disk | FTP | other *** search
/ Best of www.BestZips.com (Collector's Edition) / Best of WWW.BESTZIPS.COM Collector's Edition (JCSM Shareware) (JCS Marketing).ISO / grapprog / splt252.zip / TESTS / T8-7.BAS < prev    next >
BASIC Source File  |  1991-07-21  |  2KB  |  48 lines
  1. 10 open "t8-7.plt" for output as 1
  2. 20 print #1,"insp1ip1250,750,9250,6250"
  3. 30 print #1,"sc1,12,0,150"
  4. 40 print #1,"pu1,0pd12,0,12,150,1,150,1,0pu"
  5. 50 print #1,"si.2,.3tl1.5,0"
  6. 60 for x=1 to 12
  7. 70  print #1,"pa";x;",0;xt;"
  8. 80  read a$
  9. 90  print #1, "cp-.33,-1;lb"+a$+chr$(3)
  10. 100 next x
  11. 110 print #1,"pa6.5,0cp-7,-2.5;"
  12. 120 print #1,"lbCalendar Month"+chr$(3)
  13. 130 for y=0 to 150 step 25
  14. 140  print #1,"pa1,";y;";yt;"
  15. 150  if y<100 then print #1,"cp-3,-.25"
  16. 160  if y>99 then print #1,"cp-4,-.25"
  17. 170  print #1,"lb";y;chr$(3)
  18. 180 next y
  19. 190 print #1,"pa1,150;cp-3.5,2"
  20. 200 print #1,"lbSales $"+chr$(3)+"cp-9,-1;"
  21. 210 print #1,"lb(Thousands)"+chr$(3)
  22. 220 print #1,"sp2pa6,150si.4,.6cp-9.5,2"
  23. 230 print #1,"lb1985 Sales by Region"+chr$(3)
  24. 240 print #1,"sp6ltpa1,23pd2,25,3,18,4,22;"
  25. 250 print #1,"pd5,23,6,27,7,27,8,25,9,24,10,28;"
  26. 260 print #1,"pd11,27,12,27pu3.6,16;"
  27. 270 print #1,"si.2,.3lbSouth America"+chr$(3)
  28. 280 for i=1 to 3
  29. 290  print #1,"sp";i+2;";lt";i+2;";"
  30. 300  for x=1 to 12
  31. 310   read y
  32. 320   print #1,"pa";x;",";y;"pd;"
  33. 330  next x
  34. 340  if i=1 then print #1,"pu4,45;lbJapan"+chr$(3)
  35. 350  if i=2 then print #1,"pu2,64;lbEurope"+chr$(3)
  36. 360  if i=3 then print #1,"pu2,107;lbUnited States"+chr$(3)
  37. 370 next i
  38. 380 print #1,"sp0;"
  39. 390 system
  40. 500 data "J","F","M","A","M","J"
  41. 510 data "J","A","S","O","N","D"
  42. 520 data 45,50,52,53,52,51,55,56,56,58,58,60
  43. 530 data 55,60,63,62,59,54,50,46,47,49,53,58
  44. 540 data 98,100,102,105,107
  45. 550 data 110,125,112,115
  46. 560 data 125,130,122,0,0
  47. 570 end
  48.